<%
function num2binary(ary())
	Dim binary
	binary=0
	For i = LBound(ary) To UBound(ary)
		binary=binary+2^CInt(ary(i))
	Next
	num2binary=binary
end function

function ismatch(num,binary)
	Dim flag
	flag=binary\(2^num)
	flag=flag mod 2
	ismatch=(flag=1)
end function
%>